home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_42_popup - fx.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  1.9 KB  |  88 lines
  1. property pSpriteList, pMemberList, pPressed, pMySprite, pMyMember, pMyMember2, pMyMember3
  2.  
  3. on beginSprite me
  4.   pMySprite = sprite(me.spriteNum)
  5.   pMyMember = pMySprite.memberNum
  6.   pMyMember2 = pMyMember - 1
  7.   pMyMember3 = pMyMember + 1
  8.   pMemberList = [:]
  9.   repeat with i in pSpriteList
  10.     addProp(pMemberList, i, sprite(i).member.name)
  11.   end repeat
  12.   hidePopup(me)
  13. end
  14.  
  15. on mouseWithin me
  16.   set the memberNum of sprite pMySprite to pMyMember3
  17.   put "Click to access other special effects." into field "status"
  18. end
  19.  
  20. on mouseLeave me
  21.   set the memberNum of sprite pMySprite to pMyMember
  22.   put EMPTY into field "status"
  23. end
  24.  
  25. on mouseDown me
  26.   pPressed = 1
  27. end
  28.  
  29. on mouseUp me
  30.   set the memberNum of sprite pMySprite to pMyMember3
  31.   liftUp(me)
  32. end
  33.  
  34. on mouseUpOutSide me
  35.   liftUp(me)
  36. end
  37.  
  38. on liftUp me
  39.   pPressed = 0
  40.   hidePopup(me)
  41.   select(me)
  42. end
  43.  
  44. on exitFrame me
  45.   if pPressed then
  46.     showPopup(me)
  47.     s = the rollover
  48.     if pSpriteList.getOne(s) then
  49.       sprite(s).member = member(pMemberList.getProp(s)).number + 1
  50.     end if
  51.   end if
  52. end
  53.  
  54. on hidePopup me
  55.   repeat with i = 1 to pSpriteList.count
  56.     set the memberNum of sprite pMySprite to pMyMember
  57.     sprite(pSpriteList[i]).memberNum = 0
  58.   end repeat
  59. end
  60.  
  61. on showPopup me
  62.   repeat with i in pSpriteList
  63.     set the memberNum of sprite pMySprite to pMyMember2
  64.     sprite(i).member = member(pMemberList.getProp(i))
  65.   end repeat
  66. end
  67.  
  68. on select me
  69.   s = the rollover
  70.   if pSpriteList.getOne(s) then
  71.     set the memberNum of sprite pMySprite to member(pMemberList.getProp(s))
  72.     pMyMember = pMySprite.memberNum
  73.     pMyMember2 = pMyMember - 1
  74.     pMyMember3 = pMyMember + 1
  75.     if pMemberList.getProp(s).word[2] = "weave" then
  76.       go(the frame + 1)
  77.     else
  78.       go(the frame - 9)
  79.     end if
  80.   end if
  81. end
  82.  
  83. on getPropertyDescriptionList me
  84.   list = [:]
  85.   addProp(list, #pSpriteList, [#comment: "Sprite List", #format: #list, #default: []])
  86.   return list
  87. end
  88.